home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / LISP Related / LISP Goodies / McCartney-library 1.1 / load-example.lisp < prev    next >
Encoding:
Text File  |  1992-09-02  |  1.4 KB  |  45 lines  |  [TEXT/CCL2]
  1. ;;; load-example.lisp
  2. ;;;
  3. ;;; Paul McCartney, Spring 1992
  4. ;;;
  5. ;;; Copyright © 1992 Paul McCartney.  All Rights Reserved.
  6. ;;; 
  7. ;;; Washington University Medical Informatics Training Program
  8. ;;;
  9.  
  10. (def-logical-directory "Main" (mac-directory-namestring *loading-file-source-file*))
  11. (def-logical-directory "CODE" "Main;CODE:")
  12.  
  13. (def-logical-directory "File-Utils" "CODE;file-utils:")
  14. (def-logical-directory "Misc" "CODE;misc:")
  15. (def-logical-directory "Oodles-Files" "CODE;oodles-files:")
  16. (def-logical-directory "Views" "CODE;views:")
  17. (def-logical-directory "Example" "Main;Example:")
  18. (def-logical-directory "FASL" "Main;FASL:")
  19.  
  20. (load "File-Utils;load-fasl.lisp")
  21.  
  22. (load-fasl "File-Utils;backup-files.lisp" "FASL;")
  23. (load-fasl "File-Utils;docs-menu.lisp" "FASL;")
  24.  
  25. (load-fasl "Misc;graphics-tools.lisp" "FASL;")
  26.  
  27. (load-fasl "Oodles-Files;oodles-package.lisp" "FASL;")
  28. (load-fasl "Oodles-Files;simple-view-ce.lisp" "FASL;")
  29. (load-fasl "Oodles-Files;GWorld-u.lisp" "FASL;")
  30. (load-fasl "Oodles-Files;GWorld-view.lisp" "FASL;")
  31. (load-fasl "Oodles-Files;GWorld-view-extensions.lisp" "FASL;")
  32.  
  33. (load-fasl "Views;number-line-view.lisp" "FASL;")
  34. (load-fasl "Views;scatter-plot-view.lisp" "FASL;")
  35. (load-fasl "Views;pop-up-view.lisp" "FASL;")
  36.  
  37. ;;;
  38. ;;; EXAMPLE Code
  39. ;;;
  40.  
  41. (load-fasl "Example;menus.lisp" "FASL;")
  42. (load-fasl "Example;simple-scatter-plot.lisp" "FASL;")
  43. (load-fasl "Example;initialize.lisp" "FASL;")
  44.  
  45.